c==============================================================================
      real samp
      common /csamp/samp(npts)
c==============================================================================
